home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 039a / pdm_106.zip / CAP.PRG < prev    next >
Text File  |  1991-06-08  |  21KB  |  583 lines
  1.  
  2. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  3. * Program Name: CAP.PRG
  4. * Description.: Driver for PDM Menu System program
  5. * Language....: Clipper S'87
  6. * LIB required: CC.LIB v1.04, EXTEND.LIB
  7. * Gen Time....: 06/08/91 17:58:22
  8. * Generated by: PDM Sys - the ClipCode Pull Down Menu System  v1.06
  9. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  10. *** Set CLIPPER Environment ***
  11. SET CURSOR OFF
  12. SET DELETED ON                          && Filter out Deleted Records
  13. SET EXACT ON
  14. SET SCOREBOARD OFF
  15. SET SOFTSEEK OFF
  16.  
  17. PDMSETUP()
  18.  
  19. *** Set Color for Initial Screen ***
  20. SET COLOR TO ( PDM_CONFG[7] )
  21. @1,0 SAY REPLICATE( CHR( PDM_CONFG[8] ), 1840 ) && char for init screen
  22.  
  23. SET COLOR TO ( PDM_COLOR[1] )           && hcolor when not selected
  24. @ PDM_CONFG[2],00
  25.  
  26. SET COLOR TO ( PDM_CONFG[6] )           && color for init bottom panel
  27. @ PDM_CONFG[4],00
  28. @ PDM_CONFG[4],00 SAY PDM_CONFG[9]      && text for init bottom panel
  29.  
  30. MENUPD( 0, 0 )                          && just display h menu
  31.  
  32. PRIVATE key, hOpt, vOpt, pdSEL, sv_panel
  33. pdSel= 1
  34. DO WHILE .T.
  35.  
  36.   *SETCANCEL(.F.)                        && Disable alt-C interrupt
  37.   INKEY(0)
  38.   key= LASTKEY()                        && key= INKEY(0) misses alt-D
  39.   *SETCANCEL(.T.)                        && Enable alt-C interrupt
  40.  
  41.   DO CASE
  42.   *?*CASE key = 28                         && F1=Help
  43.  
  44.   *?*CASE key = -2                         && F3=Exit
  45.   ***  EXIT2DOS()
  46.  
  47.   CASE key = 27                         && Exit
  48.     PRIVATE Opts[2]
  49.     Opts[1]= "Yes"
  50.     Opts[2]= "No"
  51.      * Syntx: message text,       [ title,prmpts,colors,mRow,mColm,TmO ]
  52.     IF BOXMSG( "Exit Program to DOS?",.F., Opts ) = 1
  53.       EXIT
  54.     ELSE
  55.       LOOP
  56.     ENDIF
  57.   CASE key = -9                         && F10=Menu
  58.     hOpt=  1
  59.     vOpt=  0
  60.   *?*CASE key = 3                          && PgDn=Next
  61.   ***  SKIP 1
  62.   ***  IF EOF()
  63.   ***    BOXMSG( "At End-of-File" )
  64.   ***    SKIP -1
  65.   ***  ENDIF
  66.   *?*CASE key = 18                         && PgUp=Prev
  67.   ***  SKIP -1
  68.   ***  IF BOF()
  69.   ***    BOXMSG( "At Beginning-of-File" )
  70.   ***  ENDIF
  71.  
  72.   CASE ASCAN( PDM_HOTKY, key ) > 0      && If found, returns the ss
  73.     hOpt=  ASCAN( PDM_HOTKY, key )
  74.     vOpt=  1
  75.   OTHERWISE
  76.     LOOP
  77.   ENDCASE
  78.  
  79.   IF hOpt < 1
  80.     LOOP
  81.   ENDIF
  82.  
  83.   sv_panel= BOXSAVE( PDM_CONFG[4],00, PDM_CONFG[4],79 )
  84.   pdSel   = 1
  85.   DO WHILE pdSel <> 0
  86.  
  87.     pdSel= MENUPD( @hOpt, @vOpt )
  88.     IF pdSel > 0
  89.       DO CASE
  90.       CASE pdSel =  1                    && Select a Data File
  91.         SELECTFIL()
  92.       CASE pdSel =  2                    && Create a new Data File
  93.         CREATEFIL()
  94.       CASE pdSel =  4                    && Exit CAP Program  F3
  95.         EXIT2DOS()
  96.       CASE pdSel =  5                    && Display the Data File
  97.         DISPFIL()
  98.       CASE pdSel =  6                    && Add a new label to the Data File
  99.         ADDREC()
  100.       CASE pdSel =  7                    && Change the current label's data
  101.         CHGREC()
  102.       CASE pdSel =  9                    && Delete the current label from the Data File
  103.         DELREC()
  104.       CASE pdSel = 10                    && Select a Label Format
  105.         SELECTFMT()
  106.       CASE pdSel = 11                    && Create a new Label Format
  107.         CREATEFMT()
  108.       CASE pdSel = 13                    && Print Labels
  109.         DO PRINTLBL
  110.       CASE pdSel = 14                    && Display the Current Configuration
  111.         DISPCONFG()
  112.       CASE pdSel = 15                    && Printer Selection
  113.         SELECTPRN()
  114.       CASE pdSel = 16                    && Screen Color Options
  115.         SCRNCONFG()
  116.       CASE pdSel = 17                    && Display Help Text   F1
  117.         DISPHELP()
  118.       OTHERWISE
  119.         * Syntx: message text/array, [ title,prmpts,colors,mRow,mColm,TmO ]
  120.         BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )
  121.       ENDCASE
  122.     ENDIF
  123.   ENDDO WHILE pdSel <> 0
  124.   BOXREST( sv_panel )
  125.  
  126. ENDDO
  127. SET COLOR TO
  128. SET CURSOR ON
  129. CLEAR
  130. QUIT                                                    && End of: MAIN LINE
  131. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  132.  
  133. *------------------------------------------------------------------------------*
  134. * Function....: PDMSETUP()
  135. * Purpose.....: UDF to Create PDMSETUP()
  136. * Parameters..: none
  137. * Generated by: PDM - the ClipCode Pull Down Menu System
  138. * Assumption..: the presence of these PUBLIC arrays:
  139. *             : <arrC>: PDM_HPROM = horizontal menu prompt text
  140. *             : <arrN>: PDM_HCOLM = horizontal starting columns for prompts
  141. *             : <arrC>: PDM_HTRIG = horizontal trigger letters
  142. *             : <arrN>: PDM_HTPOS = horizontal trigger letter positions
  143. *             : <arrN>: PDM_VSS1  = starting array subscript
  144. *             : <arrN>: PDM_VSS2  = ending array subscript
  145. *             : <arrC>: PDM_VPROM = vertical menu prompt text
  146. *             : <arrC>: PDM_VTRIG = vertical trigger letters
  147. *             : <arrN>: PDM_VCOLM = vertical starting columns for v prompts
  148. *             : <arrN>: PDM_VTPOS = vertical trigger letter positions
  149. *             : <arrL>: PDM_VACTV = vertical active status array
  150. *             : <arrC>: PDM_COLOR = PDM color strings for SET COLOR TO
  151. *                                     [ 1] hcolor when not selected
  152. *                                     [ 2] hcolor for unselected trigger
  153. *                                     [ 3] hcolor for selected option
  154. *                                     [ 4] hcolor for selected trigger
  155. *                                     [ 5] vcolor for box
  156. *                                     [ 6] vcolor when not selected
  157. *                                     [ 7] vcolor for unselected trigger
  158. *                                     [ 8] vcolor for selected option
  159. *                                     [ 9] vcolor for selected trigger
  160. *                                     [10] vcolor for inactive option
  161. *                                     [11] vcolor for message row
  162. *             : <arrC>: PDM_VMSSG = vertical message help text
  163. *             : <arrX>: PDM_CONFG = PDM configuration
  164. *                                     [1] = expN: box type: 0,1,2
  165. *                                     [2] = expN: row for horiz menu
  166. *                                     [3] = expN: row for box top
  167. *                                     [4] = expN: message row
  168. *                                     [5] = expN: time out
  169. *                                     [6] = expC: color for init bottom panel
  170. *                                     [7] = expC: color for init screen
  171. *                                     [8] = expN: char for init screen
  172. *                                     [9] = expC: text for init bottom panel
  173. * Calls.......: PDM_INIT()
  174. * CC.LIB Calls: ALONGEST(), ATNEXT()
  175. * Language....: Clipper S'87
  176. * Returns.....: <expL>: .T.
  177. *------------------------------------------------------------------------------*
  178. FUNCTION PDMSETUP
  179.  
  180. PRIVATE dimh, dimv, ss
  181.  
  182. *** MENUPD Horizontal ***
  183. dimh= 6
  184. PUBLIC PDM_HPROM[dimh]                  && horizontal menu prompt text
  185. PDM_HPROM[1]= " File "
  186. PDM_HPROM[2]= " View "
  187. PDM_HPROM[3]= " Edit "
  188. PDM_HPROM[4]= " Print "
  189. PDM_HPROM[5]= " Configure "
  190. PDM_HPROM[6]= " Help "
  191.  
  192. PUBLIC PDM_HCOLM[dimh]                  && horizontal starting columns for prompts
  193. PDM_HCOLM[1]= 1
  194. PDM_HCOLM[2]= 7
  195. PDM_HCOLM[3]= 13
  196. PDM_HCOLM[4]= 19
  197. PDM_HCOLM[5]= 26
  198. PDM_HCOLM[6]= 73
  199.  
  200. PUBLIC PDM_HOTKY[dimh]                  && horiz Hot/alt keys INKEY()
  201. PDM_HOTKY[1]= 289
  202. PDM_HOTKY[2]= 303
  203. PDM_HOTKY[3]= 274
  204. PDM_HOTKY[4]= 281
  205. PDM_HOTKY[5]= 302
  206. PDM_HOTKY[6]= 291
  207.  
  208. PUBLIC PDM_HTRIG[dimh]                  && horizontal trigger letters
  209. PDM_HTRIG[1]= "F"
  210. PDM_HTRIG[2]= "V"
  211. PDM_HTRIG[3]= "E"
  212. PDM_HTRIG[4]= "P"
  213. PDM_HTRIG[5]= "C"
  214. PDM_HTRIG[6]= "H"
  215.  
  216. PUBLIC PDM_HTPOS[dimh]                  && horizontal trigger letter  positions
  217. PDM_HTPOS[1]= 2
  218. PDM_HTPOS[2]= 2
  219. PDM_HTPOS[3]= 2
  220. PDM_HTPOS[4]= 2
  221. PDM_HTPOS[5]= 2
  222. PDM_HTPOS[6]= 2
  223.  
  224. *** PDMENUV Vertical ***
  225. PUBLIC PDM_VSS1[dimh]                   && starting array subscript
  226. PDM_VSS1[1]= 1
  227. PDM_VSS1[2]= 5
  228. PDM_VSS1[3]= 6
  229. PDM_VSS1[4]= 10
  230. PDM_VSS1[5]= 14
  231. PDM_VSS1[6]= 17
  232.  
  233. dimv= 17
  234. PUBLIC PDM_VPROM[dimv]                  && vertical menu prompt text
  235. PDM_VPROM[ 1]= " Select a Data File     "
  236. PDM_VPROM[ 2]= " Create a new Data File "
  237. PDM_VPROM[ 3]= "-"
  238. PDM_VPROM[ 4]= " Exit CAP Program  F3   "
  239. PDM_VPROM[ 5]= " Display the Data File "
  240. PDM_VPROM[ 6]= " Add a new label to the Data File            "
  241. PDM_VPROM[ 7]= " Change the current label's data             "
  242. PDM_VPROM[ 8]= "-"
  243. PDM_VPROM[ 9]= " Delete the current label from the Data File "
  244. PDM_VPROM[10]= " Select a Label Format     "
  245. PDM_VPROM[11]= " Create a new Label Format "
  246. PDM_VPROM[12]= "-"
  247. PDM_VPROM[13]= " Print Labels              "
  248. PDM_VPROM[14]= " Display the Current Configuration "
  249. PDM_VPROM[15]= " Printer Selection                 "
  250. PDM_VPROM[16]= " Screen Color Options              "
  251. PDM_VPROM[17]= " Display Help Text   F1 "
  252.  
  253. PUBLIC PDM_VTRIG[dimv]                  && vertical trigger letters
  254. PDM_VTRIG[ 1]= "S"
  255. PDM_VTRIG[ 2]= "C"
  256. PDM_VTRIG[ 3]= "-"
  257. PDM_VTRIG[ 4]= "x"
  258. PDM_VTRIG[ 5]= "D"
  259. PDM_VTRIG[ 6]= "A"
  260. PDM_VTRIG[ 7]= "C"
  261. PDM_VTRIG[ 8]= "-"
  262. PDM_VTRIG[ 9]= "D"
  263. PDM_VTRIG[10]= "S"
  264. PDM_VTRIG[11]= "C"
  265. PDM_VTRIG[12]= "-"
  266. PDM_VTRIG[13]= "P"
  267. PDM_VTRIG[14]= "D"
  268. PDM_VTRIG[15]= "P"
  269. PDM_VTRIG[16]= "S"
  270. PDM_VTRIG[17]= "D"
  271.  
  272. PUBLIC PDM_VTPOS[dimv]                  && vertical trigger letter positions
  273. PDM_VTPOS[ 1]= 2
  274. PDM_VTPOS[ 2]= 2
  275. PDM_VTPOS[ 3]= 1
  276. PDM_VTPOS[ 4]= 3
  277. PDM_VTPOS[ 5]= 2
  278. PDM_VTPOS[ 6]= 2
  279. PDM_VTPOS[ 7]= 2
  280. PDM_VTPOS[ 8]= 1
  281. PDM_VTPOS[ 9]= 2
  282. PDM_VTPOS[10]= 2
  283. PDM_VTPOS[11]= 2
  284. PDM_VTPOS[12]= 1
  285. PDM_VTPOS[13]= 2
  286. PDM_VTPOS[14]= 2
  287. PDM_VTPOS[15]= 2
  288. PDM_VTPOS[16]= 2
  289. PDM_VTPOS[17]= 2
  290.  
  291. PUBLIC PDM_VACTV[dimv]                  && vertical active status array
  292. AFILL( PDM_VACTV, .T. )
  293. PDM_VACTV[ 3]= .F.
  294. PDM_VACTV[ 8]= .F.
  295. PDM_VACTV[12]= .F.
  296.  
  297. PUBLIC PDM_VMSSG[dimv]                  && vertical message help text
  298. PDM_VMSSG[ 1]= "Select any available CAP Data File"
  299. PDM_VMSSG[ 2]= "Create a new CAP Data File"
  300. PDM_VMSSG[ 3]= "-"
  301. PDM_VMSSG[ 4]= "Exit the CAP program"
  302. PDM_VMSSG[ 5]= "View the currently selected Data file"
  303. PDM_VMSSG[ 6]= "Add a new label to the Data File "
  304. PDM_VMSSG[ 7]= "Change the currently viewed label data"
  305. PDM_VMSSG[ 8]= "-"
  306. PDM_VMSSG[ 9]= "Delete the currently viewed label data"
  307. PDM_VMSSG[10]= "Select a Label Format"
  308. PDM_VMSSG[11]= "Create a new Label Format"
  309. PDM_VMSSG[12]= "-"
  310. PDM_VMSSG[13]= "Print labels"
  311. PDM_VMSSG[14]= "Display the current configuration selections"
  312. PDM_VMSSG[15]= "Select printer options"
  313. PDM_VMSSG[16]= "Select Screen Color Options "
  314. PDM_VMSSG[17]= "Display Help Text "
  315.  
  316. PUBLIC PDM_COLOR[11]                    && PDM color strings for SET COLOR TO
  317. PDM_COLOR[ 1]= "N/W"                     && [ 1] hcolor when not selected
  318. PDM_COLOR[ 2]= "BG+/W"                   && [ 2] hcolor for unselected trigger
  319. PDM_COLOR[ 3]= "W+/R"                    && [ 3] hcolor for selected option
  320. PDM_COLOR[ 4]= "BG+/R"                   && [ 4] hcolor for selected trigger
  321. PDM_COLOR[ 5]= "N/W"                     && [ 5] vcolor for box
  322. PDM_COLOR[ 6]= "N/W"                     && [ 6] vcolor when not selected
  323. PDM_COLOR[ 7]= "BG+/W"                   && [ 7] vcolor for unselected trigger
  324. PDM_COLOR[ 8]= "W+/R"                    && [ 8] vcolor for selected option
  325. PDM_COLOR[ 9]= "BG+/R"                   && [ 9] vcolor for selected trigger
  326. PDM_COLOR[10]= "N+/W"                    && [10] vcolor for inactive option
  327. PDM_COLOR[11]= "N/W"                     && [11] vcolor for message row
  328.  
  329. PUBLIC PDM_CONFG[9]                     && PDM configuration
  330. PDM_CONFG[1]= 1                          && [1] = expN: box type: 0,1,2
  331. PDM_CONFG[2]= 0                          && [2] = expN: row for horiz menu
  332. PDM_CONFG[3]= 2                          && [3] = expN: row for box top
  333. PDM_CONFG[4]= 24                         && [4] = expN: message row
  334. PDM_CONFG[5]= 0                          && [5] = expN: time out
  335. PDM_CONFG[6]= "N/W"                      && [6] = expC: color for init bottom panel
  336. PDM_CONFG[7]= "W+/B"                     && [7] = expC: color for init screen
  337. PDM_CONFG[8]= 176                        && [8] = expN: char for init screen
  338. *                                        && [9] = expC: text for init bottom panel
  339. PDM_CONFG[9]= " Alt+Letter=Menu  Esc=Cancel  F1=Help  F3=Exit  F10=Menu  PgDn=Next PgUp=Prev"
  340.  
  341. PDM_INIT()                    && Initialize remaining optional PDM PUBLIC arrays
  342.  
  343. RETURN .T.                                                 && End of: PDMSETUP()
  344. *------------------------------------------------------------------------------*
  345.  
  346. *------------------------------------------------------------------------------*
  347. * Function..: SELECTFIL()
  348. * Purpose...: Select a Data File
  349. * Parameters: 
  350. * Cautions..: none
  351. * Returns...: <expL>: .T.
  352. *------------------------------------------------------------------------------*
  353. FUNCTION SELECTFIL
  354. *PARAM 
  355.  
  356. *PRIVATE 
  357.  
  358. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  359.  
  360. RETURN .T.                                                && End of: SELECTFIL()
  361. *------------------------------------------------------------------------------*
  362.  
  363. *------------------------------------------------------------------------------*
  364. * Function..: CREATEFIL()
  365. * Purpose...: Create a new Data File
  366. * Parameters: 
  367. * Cautions..: none
  368. * Returns...: <expL>: .T.
  369. *------------------------------------------------------------------------------*
  370. FUNCTION CREATEFIL
  371. *PARAM 
  372.  
  373. *PRIVATE 
  374.  
  375. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  376.  
  377. RETURN .T.                                                && End of: CREATEFIL()
  378. *------------------------------------------------------------------------------*
  379.  
  380. *------------------------------------------------------------------------------*
  381. * Function..: EXIT2DOS()
  382. * Purpose...: Exit CAP Program  F3
  383. * Parameters: 
  384. * Cautions..: none
  385. * Returns...: <expL>: .T.
  386. *------------------------------------------------------------------------------*
  387. FUNCTION EXIT2DOS
  388. *PARAM 
  389.  
  390. *PRIVATE 
  391.  
  392. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  393.  
  394. RETURN .T.                                                 && End of: EXIT2DOS()
  395. *------------------------------------------------------------------------------*
  396.  
  397. *------------------------------------------------------------------------------*
  398. * Function..: DISPFIL()
  399. * Purpose...: Display the Data File
  400. * Parameters: 
  401. * Cautions..: none
  402. * Returns...: <expL>: .T.
  403. *------------------------------------------------------------------------------*
  404. FUNCTION DISPFIL
  405. *PARAM 
  406.  
  407. *PRIVATE 
  408.  
  409. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  410.  
  411. RETURN .T.                                                  && End of: DISPFIL()
  412. *------------------------------------------------------------------------------*
  413.  
  414. *------------------------------------------------------------------------------*
  415. * Function..: ADDREC()
  416. * Purpose...: Add a new label to the Data File
  417. * Parameters: 
  418. * Cautions..: none
  419. * Returns...: <expL>: .T.
  420. *------------------------------------------------------------------------------*
  421. FUNCTION ADDREC
  422. *PARAM 
  423.  
  424. *PRIVATE 
  425.  
  426. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  427.  
  428. RETURN .T.                                                   && End of: ADDREC()
  429. *------------------------------------------------------------------------------*
  430.  
  431. *------------------------------------------------------------------------------*
  432. * Function..: CHGREC()
  433. * Purpose...: Change the current label's data
  434. * Parameters: 
  435. * Cautions..: none
  436. * Returns...: <expL>: .T.
  437. *------------------------------------------------------------------------------*
  438. FUNCTION CHGREC
  439. *PARAM 
  440.  
  441. *PRIVATE 
  442.  
  443. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  444.  
  445. RETURN .T.                                                   && End of: CHGREC()
  446. *------------------------------------------------------------------------------*
  447.  
  448. *------------------------------------------------------------------------------*
  449. * Function..: DELREC()
  450. * Purpose...: Delete the current label from the Data File
  451. * Parameters: 
  452. * Cautions..: none
  453. * Returns...: <expL>: .T.
  454. *------------------------------------------------------------------------------*
  455. FUNCTION DELREC
  456. *PARAM 
  457.  
  458. *PRIVATE 
  459.  
  460. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  461.  
  462. RETURN .T.                                                   && End of: DELREC()
  463. *------------------------------------------------------------------------------*
  464.  
  465. *------------------------------------------------------------------------------*
  466. * Function..: SELECTFMT()
  467. * Purpose...: Select a Label Format
  468. * Parameters: 
  469. * Cautions..: none
  470. * Returns...: <expL>: .T.
  471. *------------------------------------------------------------------------------*
  472. FUNCTION SELECTFMT
  473. *PARAM 
  474.  
  475. *PRIVATE 
  476.  
  477. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  478.  
  479. RETURN .T.                                                && End of: SELECTFMT()
  480. *------------------------------------------------------------------------------*
  481.  
  482. *------------------------------------------------------------------------------*
  483. * Function..: CREATEFMT()
  484. * Purpose...: Create a new Label Format
  485. * Parameters: 
  486. * Cautions..: none
  487. * Returns...: <expL>: .T.
  488. *------------------------------------------------------------------------------*
  489. FUNCTION CREATEFMT
  490. *PARAM 
  491.  
  492. *PRIVATE 
  493.  
  494. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  495.  
  496. RETURN .T.                                                && End of: CREATEFMT()
  497. *------------------------------------------------------------------------------*
  498.  
  499. *------------------------------------------------------------------------------*
  500. * Procedure.: PRINTLBL
  501. * Purpose...: Print Labels
  502. * Parameters: 
  503. * Cautions..: none
  504. * Returns...: <expL>: .T.
  505. *------------------------------------------------------------------------------*
  506. PROCEDURE PRINTLBL
  507. *PARAM 
  508.  
  509. *PRIVATE 
  510.  
  511. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  512.  
  513. RETURN                                                  && End of: PROC PRINTLBL
  514. *------------------------------------------------------------------------------*
  515.  
  516. *------------------------------------------------------------------------------*
  517. * Function..: DISPCONFG()
  518. * Purpose...: Display the Current Configuration
  519. * Parameters: 
  520. * Cautions..: none
  521. * Returns...: <expL>: .T.
  522. *------------------------------------------------------------------------------*
  523. FUNCTION DISPCONFG
  524. *PARAM 
  525.  
  526. *PRIVATE 
  527.  
  528. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  529.  
  530. RETURN .T.                                                && End of: DISPCONFG()
  531. *------------------------------------------------------------------------------*
  532.  
  533. *------------------------------------------------------------------------------*
  534. * Function..: SELECTPRN()
  535. * Purpose...: Printer Selection
  536. * Parameters: 
  537. * Cautions..: none
  538. * Returns...: <expL>: .T.
  539. *------------------------------------------------------------------------------*
  540. FUNCTION SELECTPRN
  541. *PARAM 
  542.  
  543. *PRIVATE 
  544.  
  545. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  546.  
  547. RETURN .T.                                                && End of: SELECTPRN()
  548. *------------------------------------------------------------------------------*
  549.  
  550. *------------------------------------------------------------------------------*
  551. * Function..: SCRNCONFG()
  552. * Purpose...: Screen Color Options
  553. * Parameters: 
  554. * Cautions..: none
  555. * Returns...: <expL>: .T.
  556. *------------------------------------------------------------------------------*
  557. FUNCTION SCRNCONFG
  558. *PARAM 
  559.  
  560. *PRIVATE 
  561.  
  562. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  563.  
  564. RETURN .T.                                                && End of: SCRNCONFG()
  565. *------------------------------------------------------------------------------*
  566.  
  567. *------------------------------------------------------------------------------*
  568. * Function..: DISPHELP()
  569. * Purpose...: Display Help Text   F1
  570. * Parameters: 
  571. * Cautions..: none
  572. * Returns...: <expL>: .T.
  573. *------------------------------------------------------------------------------*
  574. FUNCTION DISPHELP
  575. *PARAM 
  576.  
  577. *PRIVATE 
  578.  
  579. BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )    && *?* temp
  580.  
  581. RETURN .T.                                                 && End of: DISPHELP()
  582. *------------------------------------------------------------------------------*
  583. *<eof>